home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00a.txt / 000051_icon-group-sender _Mon Apr 10 09:43:00 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  1KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id JAA09624
  4.     for icon-group-addresses; Mon, 10 Apr 2000 09:42:48 -0700 (MST)
  5. Message-Id: <200004101642.JAA09624@baskerville.CS.Arizona.EDU>
  6. From: "F.G. van DORP" <F.G.van.Dorp@digimedia.nl>
  7. X-Newsgroups: comp.lang.icon
  8. Subject: Reversible assignment really reversible ?
  9. X-Newsreader: Forte Agent 1.7/32.534
  10. Date: Sat, 08 Apr 2000 18:16:38 GMT
  11. X-Complaints-To: abuse@chello.nl
  12. X-Trace: nlnews00.chello.com 955217798 212.187.67.243 (Sat, 08 Apr 2000 17:16:38 GMT)
  13. To: icon-group@optima.CS.Arizona.EDU
  14. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  15. Status: RO
  16.  
  17. # WINICON 9.3.1
  18.  
  19. procedure main()
  20. local i1,i2,i3,j1,j2,k,a1,a2,a3
  21. i1:=2
  22. j1:=4
  23. i2:=4; i3:=i2
  24. j2:=2
  25. k:=3
  26.  
  27. # co-exp creation & @ctivation not really necessary
  28. a1:=create((i1 <- j1) > k)
  29. a2:=create((i2 <- j2) > k)
  30. a3:=create(((i2:=j2)|(i2:=i3)) > k)
  31.  
  32. write(@a3)
  33. write("co-exp1: ",@a1)
  34. write("nested1: ",((i1 <- j1) > k))
  35. write("muteva1: ",((i1 <- j1) & (i1 > k)))
  36.  
  37. # the following set doesn't work, so is   <- 
  38. # really implemented or just an alias for :=  ?
  39. write("co-exp2: ",@a2)
  40. write("nested2: ",((i2 <- j2) > k))
  41. write("muteva2: ",((i2 <- j2) & (i2 > k)))
  42.                                              
  43. end
  44.  
  45.